home *** CD-ROM | disk | FTP | other *** search
/ Retro Gamer 16 / Retro Gamer 16.iso / Retro.exe / Retro.DXR / 00018.ls < prev    next >
Encoding:
Text File  |  2005-04-18  |  1.4 KB  |  68 lines
  1. global mousey, runprog, theprog
  2.  
  3. on exitFrame me
  4.   if the rollover = 10 then
  5.     sprite(10).memberNum = 5
  6.   else
  7.     sprite(10).memberNum = 4
  8.   end if
  9.   if the rollover = 11 then
  10.     sprite(11).memberNum = 3
  11.   else
  12.     sprite(11).memberNum = 2
  13.   end if
  14.   if the rollover = 12 then
  15.     sprite(12).memberNum = 7
  16.   else
  17.     sprite(12).memberNum = 6
  18.   end if
  19.   if the rollover = 13 then
  20.     sprite(13).memberNum = 9
  21.   else
  22.     sprite(13).memberNum = 8
  23.   end if
  24.   if the rollover = 14 then
  25.     sprite(14).memberNum = 11
  26.   else
  27.     sprite(14).memberNum = 10
  28.   end if
  29.   if (the rollover = 10) and the mouseDown and (mousey = 0) then
  30.     mousey = 1
  31.     theprog = "\browser\browser.exe"
  32.     buttoncode()
  33.   end if
  34.   if (the rollover = 11) and the mouseDown and (mousey = 0) then
  35.     mousey = 1
  36.     theprog = "\arena\Arena106.exe"
  37.     buttoncode()
  38.   end if
  39.   if (the rollover = 14) and the mouseDown and (mousey = 0) then
  40.     mousey = 1
  41.     theprog = "\dosbox\DOSBox0.61-win32-installer.exe"
  42.     buttoncode()
  43.   end if
  44.   if (the rollover = 12) and the mouseDown then
  45.     go(49)
  46.   end if
  47.   if sound(1).isBusy() then
  48.     nothing()
  49.   else
  50.     puppetSound(1, "music")
  51.   end if
  52.   go(the frame)
  53. end
  54.  
  55. on mouseUp
  56.   mousey = 0
  57. end
  58.  
  59. on buttoncode
  60.   put "ok"
  61.   put the pathname
  62.   runprog = baOpenFile(the pathname & theprog, "normal")
  63. end
  64.  
  65. on weblink
  66.   openurl = baOpenURL("http://www.livepublishing.co.uk/retro", "maximised")
  67. end
  68.